(calc-embedded-make-info): Don't force when `calc-embedded-word' is

called twice.

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index 1f84bb664124ceca5bde0bba39da051f11f68f14..ed8734a28bf9bdc2ef8e84e75d5ec262bbcf7108 100644 (file)
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -821,7 +821,7 @@ The command \\[yank] can retrieve it from there."
                                       calc-embed-outer-top calc-embed-outer-bot)
   (let* ((bufentry (assq (current-buffer) calc-embedded-active))
         (found bufentry)
-        (force (and fresh calc-embed-top))
+        (force (and fresh calc-embed-top (null (equal calc-embed-top '(t)))))
         (fixed calc-embed-top)
         (new-info nil)
         info str)